home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed14.d64 / lesson 18 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  223 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 4     (null)ART 1           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 18                WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"           CHR$ENERAL  (null)ROBLEMS  OPEN          WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC ONON"
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  (null)ARGARET WEIGHED 52KG.
  51. 210 PRINT"  [200]ER BROTHER, [194]EN,IS 19KG HEAVIER.
  52. 215 [153]"  LEFT$OW MUCH DOES HE WEIGH?                (IN KG)   "
  53. 220 [141]81:[141]70
  54. 225 [153]"             ON"
  55. 230 [133] A$
  56. 240 [139]A$[179][177]"71 KG"[175]A$[179][177]"71KG"[167] 270
  57. 250 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  58. 260 P[178]P[170]1:[137]300
  59. 270 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  60. 275 [139]Z[178]2[167]G[178]G[170]1:[137]295
  61. 280 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  62. 290 [153]"OPENONON                                        ONONONONONONON":[137]225
  63. 295 [153]"ONON  PEEKEN WEIGHS 71DEFKG.                ":[141]82
  64. 297 [153]"  52 + 19 = 71        ":[141]82:[141]90
  65. 300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
  66. 305 [153]"  ATNT THE BEGINNING OF VACATION LEFT$ARRY
  67. 310 PRINT"  WEIGHED 35 KG.  [201]F HE GAINS 7 KG
  68. 315 [153]"  IN A YEAR, HOW MUCH WILL HE WEIGH       THEN?  (IN KG)     "
  69. 320 [141]81:[141]70
  70. 325 [153]"             ON"
  71. 330 [133] A$
  72. 340 [139]A$[179][177]"42KG"[175]A$[179][177]"42 KG"[167]370
  73. 350 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  74. 360 P[178]P[170]1:[137]400
  75. 370 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  76. 375 [139]Z[178]2 [167] G[178]G[170]1:[137]395
  77. 380 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  78. 390 [153]"OPENONON                                        ONONONONONONON":[137]325
  79. 395 [153]"ONON  LEFT$E WILL WEIGH 42DEFKG.             ":[141]82
  80. 397 [153]"  35 + 7 = 42        ":[141]82:[141]90
  81. 400 [153]"PRINT#LOAD               (null)UESTION 3 WAITOPEN":Z[178]0
  82. 405 [153]"  CHR$EORGE BOUGHT 48 MARBLES TO DIVIDE
  83. 410 PRINT"  EQUALLY WITH HIS THREE BROTHERS.
  84. 415 [153]"  LEFT$OW MANY MARBLES DID EACH GET?"
  85. 420 [141]81:[141]70
  86. 425 [153]"             ON"
  87. 430 [133] A$
  88. 440 [139]A$[179][177]"12"[175]A$[179][177]"12 MARBLES"[167] 470
  89. 450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  90. 460 P[178]P[170]1:[137]500
  91. 470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  92. 475 [139]Z[178]2[167]G[178]G[170]1:[137]495
  93. 480 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  94. 490 [153]"OPENONON                                        ONONONONONONON":[137]425
  95. 495 [153]"ONON  VALACH WILL GET 12DEF MARBLES.        ":[141]82
  96. 497 [153]"  48 / 4 = 12        ":[141]82:[141]90
  97. 500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
  98. 505 [153]"  LEFT$OW MANY DAYS ARE THERE IN (null)ARCH
  99. 510 PRINT"  AND [193]PRIL?"
  100. 520 GOSUB81:GOSUB70
  101. 525 PRINT"             [145]"
  102. 530 INPUT A$
  103. 540 IFA$<>"61"ANDA$<>"61 DAYS"THEN 570
  104. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  105. 560 P=P+1:GOTO600
  106. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  107. 575 IFZ=2THENG=G+1:GOTO595
  108. 580 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  109. 590 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  110. 595 PRINT"[145][145]  [212]HERE ARE 61[150] DAYS.             ":GOSUB82
  111. 597 PRINT"  31 + 30 = 61        ":GOSUB82:GOSUB90
  112. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  113. 605 PRINT"  [212]HE CLASS VOTED FOR A LEADER. [200]ELEN
  114. 610 [153]"  GOT 17 VOTES AND (null)IMON GOT 24.          LEFT$OW MANY PUPILS VOTED?
  115. 620 GOSUB81:GOSUB70
  116. 625 PRINT"             [145]"
  117. 630 INPUT A$
  118. 640 IFA$<>"41"ANDA$<>"41 PUPILS"THEN 670
  119. 650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  120. 660 P=P+1:GOTO700
  121. 670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  122. 675 IFZ=2THENG=G+1:GOTO695
  123. 680 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  124. 690 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
  125. 695 PRINT"[145][145]  41[150] PUPILS VOTED.                ":GOSUB82
  126. 697 PRINT"  17 + 24 = 41        ":GOSUB82:GOSUB90
  127. 700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
  128. 705 PRINT"  [202]OHN, [212]OM, AND [194]OB BOUGHT A BALL FOR
  129. 710 [153]"  75 CENTS AND AGREED TO PAY EQUALLY.
  130. 715 PRINT"  [200]OW MUCH SHOULD EACH PAY?               (IN CENTS) "
  131. 720 GOSUB81:GOSUB70
  132. 725 PRINT"             [145]"
  133. 730 INPUT A$
  134. 740 IFA$<>"25"ANDA$<>"25 CENTS" THEN 770
  135. 750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  136. 760 P=P+1:GOTO800
  137. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  138. 775 IFZ=2THEN G=G+1:GOTO795
  139. 780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  140. 790 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
  141. 795 PRINT"[145][145]  [197]ACH SHOULD PAY 25[150] CENTS.       ":GOSUB82
  142. 797 PRINT"  75 / 3 = 25         ":GOSUB82:GOSUB90
  143. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  144. 805 PRINT"  [210]OB HAS 56 CENTS AND [198]AN HAS 72
  145. 810 [153]"  CENTS.  LEFT$OW MUCH MORE MONEY HAS
  146. 815 PRINT"  [198]AN THAN [210]OB?   (IN CENTS)  "
  147. 820 GOSUB81:GOSUB70
  148. 825 PRINT"             [145]"
  149. 830 INPUT A$
  150. 840 IFA$<>"16"ANDA$<>"16 CENTS" THEN 870
  151. 850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  152. 860 P=P+1:GOTO900
  153. 870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  154. 875 IFZ=2THEN G=G+1:GOTO895
  155. 880 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  156. 890 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
  157. 895 PRINT"[145][145]  [198]AN HAS 16[150] CENTS MORE.           ":GOSUB82
  158. 897 PRINT"  72 + 56 = 16        ":GOSUB82:GOSUB90
  159. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  160. 905 PRINT"  [215]HAT SHOULD [201] PAY FOR FIVE APPLES
  161. 910 [153]"  AT 8 CENTS EACH?  (IN CENTS)"
  162. 920 [141]81:[141]70
  163. 925 [153]"             ON"
  164. 930 [133] A$
  165. 940 [139]A$[179][177]"40"[175]A$[179][177]"40 CENTS" [167] 970
  166. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  167. 960 P[178]P[170]1:[137]1000
  168. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  169. 975 [139]Z[178]2[167] G[178]G[170]1:[137]995
  170. 980 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  171. 990 [153]"OPENONON                                        ONONONONONONON":[137]925
  172. 995 [153]"ONON  RIGHT$ MUST PAY 40DEF CENTS.             ":[141]82
  173. 997 [153]"  5 X 8 = 40        ":[141]82:[141]90
  174. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  175. 1005 [153]"  ATNT FORTY CENTS FOR 5 APPLES, HOW
  176. 1010 PRINT"  MUCH IS EACH APPLE?  (IN CENTS  "
  177. 1020 GOSUB81:GOSUB70
  178. 1025 PRINT"             [145]"
  179. 1030 INPUT A$
  180. 1040 IFA$<>"8"ANDA$<>"8 CENTS" THEN 1070
  181. 1050 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  182. 1060 P=P+1:GOTO1100
  183. 1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  184. 1075 IFZ=2THEN G=G+1:GOTO1095
  185. 1080 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  186. 1090 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1025
  187. 1095 PRINT"[145][145]  [201]T IS 8[150] CENTS PER APPLE.         ":GOSUB82
  188. 1097 PRINT"  40 / 5 = 8         ":GOSUB82:GOSUB90
  189. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  190. 1105 PRINT"  [201]F [198]RANK HAD 36 MARBLES AND GAVE 13
  191. 1110 [153]"  MID$AMIE, HOW MANY MARBLES HAD HE THEN?"
  192. 1120 [141]81:[141]70
  193. 1125 [153]"             ON"
  194. 1130 [133] A$
  195. 1140 [139]A$[179][177]"23"[175]A$[179][177]"23 MARBLES"[167] 1170
  196. 1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  197. 1160 [137]1200
  198. 1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  199. 1175 [139]Z[178]2[167] G[178]G[170]1:[137]1195
  200. 1180 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  201. 1190 [153]"OPENONON                                        ONONONONONONON":[137]1125
  202. 1195 [153]"ONON  ASCRANK HAD 23DEF MARBLES.           ":[141]82
  203. 1197 [153]"  36 - 13 = 23        ":[141]82:[141]90
  204. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  205. 1205 D[178]W[171]G:C[178]10[171]W
  206. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  207. 1215 PRINT"                 ";C
  208. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  209. 1225 [153]"                 ";D
  210. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  211. 1235 PRINT"                 ";G;""
  212. 1245 GOSUB90
  213. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  214. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  215. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  216. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  217. 1270 IFR$="R"THENRESTORE:GOTO100
  218. 1280 PRINT"[147] [210]ETURNING TO THE MENU
  219. 1285 [147]"MENU",8
  220. 1290 [138]
  221. 1295 [128]
  222. 1300 [143] BILL CUMBERLAND 90:10:28
  223.